home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 38
/
038.d81
/
bingo simulator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
213 lines
5 gosub60100:clr
10 poke53280,0:poke53281,0
50 print "[147][159] [195]reated by: [158][210]ichard [210]ager"
80 print tab(9)"[195] [154]- [208]rint card"
90 print tab(9)"[194] [154]- [208]lay [194].[201].[206].[199].[207]."
95 print tab(9)"[209] [154]- [209]uit"
100 print tab(9)"[154][208]ress [195][154], [194][154], or [209][154]."
110 poke646,c:print"";tab(9);"[194].[201].[206].[199].[207]. [211]imulator"
120 a=peek(203):ifa=28ora=20ora=62then150
140 ifc=15thenc=1:goto110
150 ifa=28then180
160 ifa=20then670
165 ifa=62thengosub60000:goto100
170 c=c+1:goto110
180 rem play game
190 print "[147]";:mi=.
200 printtab(15)"[176][192][192][192][192][192][192][174]"
210 print" [150] [209] [146] [209][213][201][212][211] [221] [221] [150] [209] [146] [209][213][201][212][211]"
220 printtab(15)"[173][192][192][192][192][192][192][189]"
230 m1$="[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][174]":printm1$;
235 m2$="[221] [221] [221] [221] [221] [221] [221] [221] [221]"
236 m3$="[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][179]"
237 m4$="[173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][189]"
240 for a=1to9
250 printm2$;
260 printm3$;
270 next a
280 printm2$;
290 printm4$;
300 print"[158][194]";
310 print"01020304050607"
320 print"0809101112131415"
330 print"[158][201]16171819202122"
340 print"2324252627282930"
350 print"[158][206]31323334353637"
360 print"3839404142434445"
370 print"[158][199]46474849505152"
380 print"5354555657585960"
390 print"[158][207]61626364656667"
400 print"6869707172737475"
410 printtab(5)"[154][208]ress [211][208][193][195][197] [194][193][210] [154]for next number.";:ifquthenqu=.:goto540
420 print""tab(17)" "
430 b$(1)="[194]":b$(2)="[201]":b$(3)="[206]"
440 b$(4)="[199]":b$(5)="[207]":mi=mi+1
450 lc=int(rnd(0)*5)+1
460 nc=int(rnd(0)*15)+1
470 nn=nc+((lc-1)*15)
480 sc=55463
490 ss=sc+((lc-1)*160)+((nc-1)*5)+((nc>7)*-40)
500 ifss>56295thenend
505 gosub2000
510 if(peek(ss)and15)=15then450
515 print"";:gosub2010
520 pokess,15:pokess+1,15
530 print""tab(17)""b$(lc)nn:poke198,.
535 ifmi>74then3000
540 a=peek(203):ifa<>60anda<>62then540
550 ifa=60then420
560 gosub60060
570 goto410
670 rem print cards
680 printchr$(14)chr$(8)"[147]";tab(9);"[194].[201].[206].[199].[207]. [211]imulator"
700 print "[159] [195]reated by: [210]ichard [210]ager"
720 print
730 print"[154][197]nter number of cards to make:"
735 print"([208]ress [210][197][212][213][210][206] alone to exit.)"
740 print"-->";:gosub60500:cc=val(b$)
745 ifb$=""then10
750 print
760 print" [154][208]ress [211][208][193][195][197] [154]when ready to print.":print
780 ifpeek(203)<>60then780
790 print"[145][145][145][145][145][145]";
800 fora=1to6
810 print" "
820 next:print"[145][145][145][145][145][145][145]"
821 open15,4,15:close15:ifst=0 then 830
822 poke53281,1:poke53281,.:print" [208]rinter ([196]evice #4) [206]ot [196]etected."
823 print"[154] [208]ress [152]([211][208][193][195][197][152])[154] [215]hen [210]eady [212]o [195]ontinue "
824 print"[154] [207][210] [152]([210][197][212][213][210][206][152])[154] [212]o [193]bort [212]o [205]enu"
825 geta$:ifa$=""then 825
826 if a$=" "then 821
827 if a$=chr$(13)then 50
828 goto 825
830 gosub1600:open4,4
840 fornc=1tocc
850 print""
860 printtab(7)"[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"
870 printtab(7)"[221] [194] [221] [201] [221] [206] [221] [199] [221] [207] [221]"
880 printtab(7)"[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
890 fora=1to4
900 printtab(7)"[221] [221] [221] [221] [221] [221]"
910 printtab(7)"[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
920 nexta
930 printtab(7)"[221] [221] [221] [221] [221] [221]"
940 printtab(7)"[173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
950 fora=1to5:b(a)=0
960 b=int(rnd(0)*15)+1
970 foraa=1toa:ifb(aa)=bgoto960
980 next aa
990 b(a)=b:nexta
1000 fora=1to5:i(a)=0
1010 i=int(rnd(0)*15)+16
1020 foraa=1toa:ifi(aa)=igoto1010
1030 next aa
1040 i(a)=i:nexta
1050 fora=1to5:n(a)=0
1060 n=int(rnd(0)*15)+31
1070 foraa=1toa:ifn(aa)=ngoto1060
1080 next aa
1090 n(a)=n:nexta
1100 fora=1to5:g(a)=0
1110 g=int(rnd(0)*15)+46
1120 foraa=1toa:ifg(aa)=ggoto1110
1130 next aa
1140 g(a)=g:nexta
1150 fora=1to5:o(a)=0
1160 o=int(rnd(0)*15)+61
1170 foraa=1toa:ifo(aa)=ogoto1160
1180 next aa
1190 o(a)=o:nexta
1200 print"";
1210 fora=1to5
1220 ifa=3thenprinttab(8)b(a)""tab(13)i(a)"free"g(a)""o(a)spc(13);
1225 ifa=3thengoto1240
1230 printtab(8)b(a)""tab(13)i(a)""n(a)""g(a)""o(a)spc(13);
1240 print:nexta
1250 dw$=chr$(14):sw$=chr$(15)
1260 gr$=chr$(8)
1270 c$(2)=dw$+"[221] b [221] i [221] n [221] g [221] o [221]"+gr$
1280 c$(1)=dw$+"[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"+gr$
1290 c$(3)=dw$+"[171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"+gr$
1300 c$(4)=dw$+"[221] [221] [221] [221] [221] [221]"+gr$
1310 c$(5)=dw$+"[173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"+gr$
1320 fora=1to3
1330 print#4,c$(a):gosub1600:nexta
1340 fora=1to4:gosub1600
1350 print#4,c$(4):gosub1600
1360 print#4,dw$"[221]";:ifb(a)<10thenprint#4," ";
1370 print#4,b(a);
1380 print#4,"[221]"i(a);
1390 ifa=3thenprint#4,"[221]"sw$" free "dw$;:goto1410
1400 print#4,"[221]"n(a);
1410 print#4,"[221]"g(a);
1420 print#4,"[221]"o(a)"[221]"gr$
1430 print#4,c$(4):gosub1600
1440 print#4,c$(3):gosub1600
1450 nexta
1460 print#4,c$(4):gosub1600
1470 print#4,dw$"[221]";:ifb(a)<10thenprint#4," ";
1480 print#4,b(5);
1490 print#4,"[221]"i(5);
1500 print#4,"[221]"n(5);
1510 print#4,"[221]"g(5);
1520 print#4,"[221]"o(5)"[221]"gr$:gosub1600
1530 print#4,c$(4):gosub1600
1540 print#4,c$(5):gosub1600
1550 print#4
1560 ifnc/4=int(nc/4)thenprint#4,chr$(8);:formm=1to17:print#4:next
1570 gosub1600:next nc
1580 print"[196]one.":close4
1590 fora=1to2000:next:goto50
1600 rem do some thing
1610 print""tab(16)"[208]rinting"
1611 print" [208]ress [198]1 [212]o [193]bort [212]o [205]enu "
1620 printtab(7)"[206]umber left to print: ";right$("0"+mid$(str$(cc-nc),2),2)
1630 co=co+1:ifco=15thenco=1
1640 poke646,co
1650 geta$:ifa$="[133]"thenprint#4:close4:goto 50
1660 return
2000 poke646,(peek(646)and15)+1
2010 print""tab(15)"[176][192][192][192][192][192][192][174]"
2020 printtab(15)"[221] [221]"
2030 printtab(15)"[173][192][192][192][192][192][192][189]":return
3000 print" [197][206][196] [207][198] [199][193][205][197] -- [208][210][197][211][211] [210][197][212][213][210][206] "
3010 ifpeek(203)<>1then3010
3020 goto10
60000 print" [154][193]re you sure you want to quit? ([217][154]/[206][154])"
60010 a=peek(203):ifa<>25anda<>39then60010
60020 ifa=39thenprint"[145] [145]":return
60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60040 ifer<>63thenen